home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PCMania 73
/
PCMania CD73_1.iso
/
sharewar
/
utiles
/
dlsupcbf
/
DLSupCBF.exe
/
0
/
RCDATA
/
TFRMLNM
/
TFRMLNM.txt
Wrap
Text File
|
1998-09-02
|
15KB
|
490 lines
object FrmLNm: TFrmLNm
Left = 216
Top = 204
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'DLSupCBF File Selection of Like Named File Pairs For Comparison'
ClientHeight = 350
ClientWidth = 482
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
PixelsPerInch = 96
TextHeight = 13
object LNLNPTit: TLabel
Left = 8
Top = 37
Width = 135
Height = 14
Caption = 'Like Named Paired Files:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object LnNLbl: TLabel
Left = 8
Top = 4
Width = 79
Height = 14
Caption = 'New Dir Name:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object LNOLbl: TLabel
Left = 8
Top = 22
Width = 76
Height = 14
Caption = 'Old Dir Name:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object LNSelPTit: TLabel
Left = 319
Top = 37
Width = 118
Height = 14
Caption = 'Selected Paired Files:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object LNNumSelTit: TLabel
Left = 319
Top = 222
Width = 91
Height = 14
Caption = '# Of Selected Files'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object LNNumPCap: TLabel
Left = 110
Top = 239
Width = 3
Height = 14
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object LNNum1Tit: TLabel
Left = 9
Top = 222
Width = 79
Height = 14
Caption = '# Of Paired Files'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object LNNumSelVal: TLabel
Left = 422
Top = 222
Width = 3
Height = 14
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object LNOCap: TLabel
Left = 87
Top = 22
Width = 3
Height = 13
end
object LNNumPFVal: TLabel
Left = 96
Top = 222
Width = 3
Height = 14
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object LNNCap: TLabel
Left = 87
Top = 4
Width = 3
Height = 13
end
object LNLFFTit: TLabel
Left = 9
Top = 244
Width = 80
Height = 14
Hint = 'Filter for both New and Old Directory Files'
Caption = 'Like File Filter:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
end
object LNSortTit: TLabel
Left = 9
Top = 290
Width = 139
Height = 14
Hint = 'Sorts Paired files depending on radio button setting'
Caption = 'Sort Like Named Files By:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
end
object LNSelLBx: TListBox
Left = 318
Top = 56
Width = 159
Height = 164
ItemHeight = 13
MultiSelect = True
Sorted = True
TabOrder = 6
end
object LNUndoBtn: TBitBtn
Left = 163
Top = 187
Width = 153
Height = 33
Caption = 'Unselect All S&elected'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
OnClick = LNUndoBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555
555557777F777555F55500000000555055557777777755F75555005500055055
555577F5777F57555555005550055555555577FF577F5FF55555500550050055
5555577FF77577FF555555005050110555555577F757777FF555555505099910
555555FF75777777FF555005550999910555577F5F77777775F5500505509990
3055577F75F77777575F55005055090B030555775755777575755555555550B0
B03055555F555757575755550555550B0B335555755555757555555555555550
BBB35555F55555575F555550555555550BBB55575555555575F5555555555555
50BB555555555555575F555555555555550B5555555555555575}
Layout = blGlyphRight
NumGlyphs = 2
end
object LNAvailLBx: TListBox
Left = 7
Top = 56
Width = 153
Height = 164
ItemHeight = 13
MultiSelect = True
Sorted = True
TabOrder = 0
TabWidth = 160
end
object LNSelHighBtn: TBitBtn
Left = 163
Top = 57
Width = 153
Height = 33
Caption = 'Select &Highlighted'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
OnClick = LNSelHighBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333FF3333333333333003333
3333333333773FF3333333333309003333333333337F773FF333333333099900
33333FFFFF7F33773FF30000000999990033777777733333773F099999999999
99007FFFFFFF33333F7700000009999900337777777F333F7733333333099900
33333333337F3F77333333333309003333333333337F77333333333333003333
3333333333773333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
end
object LNUSelHighBtn: TBitBtn
Left = 163
Top = 100
Width = 153
Height = 33
Caption = '&Unselect Highlighted '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
OnClick = LNUSelHighBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333FF3333333333333003333333333333F77F33333333333009033
333333333F7737F333333333009990333333333F773337FFFFFF330099999000
00003F773333377777770099999999999990773FF33333FFFFF7330099999000
000033773FF33777777733330099903333333333773FF7F33333333333009033
33333333337737F3333333333333003333333333333377333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
Layout = blGlyphRight
NumGlyphs = 2
end
object LNSelAllBtn: TBitBtn
Left = 163
Top = 144
Width = 153
Height = 33
Caption = ' Select &All Named '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
OnClick = LNSelAllBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333FF3333333333333003333
3333333333773FF3333333333309003333333333337F773FF333333333099900
33333FFFFF7F33773FF30000000999990033777777733333773F099999999999
99007FFFFFFF33333F7700000009999900337777777F333F7733333333099900
33333333337F3F77333333333309003333333333337F77333333333333003333
3333333333773333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
end
object LNStartBtn: TBitBtn
Left = 340
Top = 244
Width = 139
Height = 25
Hint = 'Start compare of Selected Paired Files'
Caption = '&Start Compare '
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 7
OnClick = LNStartBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
555555555555555555555555555555555555555555FF55555555555559055555
55555555577FF5555555555599905555555555557777F5555555555599905555
555555557777FF5555555559999905555555555777777F555555559999990555
5555557777777FF5555557990599905555555777757777F55555790555599055
55557775555777FF5555555555599905555555555557777F5555555555559905
555555555555777FF5555555555559905555555555555777FF55555555555579
05555555555555777FF5555555555557905555555555555777FF555555555555
5990555555555555577755555555555555555555555555555555}
NumGlyphs = 2
end
object LNCancelBtn: TBitBtn
Left = 340
Top = 303
Width = 139
Height = 25
Hint = 'Return to Main Tabbed Panel'
Caption = ' &Return'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ModalResult = 1
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 9
OnClick = LNCancelBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333FF3333333333333003333333333333F77F33333333333009033
333333333F7737F333333333009990333333333F773337FFFFFF330099999000
00003F773333377777770099999999999990773FF33333FFFFF7330099999000
000033773FF33777777733330099903333333333773FF7F33333333333009033
33333333337737F3333333333333003333333333333377333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
end
object LNNFileListBox: TFileListBox
Left = 160
Top = 328
Width = 81
Height = 97
TabStop = False
FileEdit = LNEdFilter
FileType = [ftReadOnly, ftHidden, ftSystem, ftArchive, ftNormal]
ItemHeight = 13
TabOrder = 10
Visible = False
end
object LNOFileListBox: TFileListBox
Left = 256
Top = 328
Width = 81
Height = 97
TabStop = False
FileType = [ftReadOnly, ftHidden, ftSystem, ftArchive, ftNormal]
ItemHeight = 13
TabOrder = 11
Visible = False
end
object LnDirListBoxN: TDirectoryListBox
Left = 48
Top = 444
Width = 145
Height = 49
FileList = LNNFileListBox
ItemHeight = 16
TabOrder = 12
Visible = False
end
object LnDirListBoxO: TDirectoryListBox
Left = 320
Top = 444
Width = 145
Height = 49
FileList = LNOFileListBox
ItemHeight = 16
TabOrder = 13
end
object LnPanSort: TPanel
Left = 9
Top = 305
Width = 178
Height = 22
TabOrder = 1
object LNSortNm: TRadioButton
Left = 12
Top = 4
Width = 69
Height = 17
Caption = 'File Name'
Checked = True
TabOrder = 0
TabStop = True
OnClick = LNSortNmClick
end
object LNSortExt: TRadioButton
Left = 100
Top = 4
Width = 73
Height = 17
Caption = 'Extension'
TabOrder = 1
OnClick = LNSortExtClick
end
end
object DSLookUpBut: TBitBtn
Left = 340
Top = 274
Width = 139
Height = 25
Hint = 'Transfer to Directory Lookup Selection Panel'
Caption = '&Dir LookUp ...'
Font.Charset = DEFAULT_CHARSET
Font.Color = clPurple
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ModalResult = 1
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 8
OnClick = DSLookUpButClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00303333333333
333337F3333333333333303333333333333337F33FFFFF3FF3FF303300000300
300337FF77777F77377330000BBB0333333337777F337F33333330330BB00333
333337F373F773333333303330033333333337F3377333333333303333333333
333337F33FFFFF3FF3FF303300000300300337FF77777F77377330000BBB0333
333337777F337F33333330330BB00333333337F373F773333333303330033333
333337F3377333333333303333333333333337FFFF3FF3FFF333000003003000
333377777F77377733330BBB0333333333337F337F33333333330BB003333333
333373F773333333333330033333333333333773333333333333}
NumGlyphs = 2
end
object LNEdFilter: TEdit
Left = 10
Top = 258
Width = 175
Height = 21
TabOrder = 14
Text = '*.*'
OnKeyPress = LNEdFilterKeyPress
end
end